home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9404a.d64
/
imp.source v2
< prev
next >
Wrap
Text File
|
1995-03-30
|
12KB
|
757 lines
;---------------------------------------
;
; - ╔ ═ ╨ ┼ ╥ ╧ ╔ ─ ╓ 2 -
;
; - BY ╚ANNES ╙OMMER -
;
; - (C) ═ARKT & ╘ECHNIK '94 -
;
;---------------------------------------
V = 53248
BORD = 703
*= $8000
JMP TITLE
COLS .BYTE 0,0,0,0,0,0,0,0
.BYTE 0,0,0,0,0,0,0,0
.BYTE 0,9,8,10,15,7,1,1
.BYTE 1,1,13,3,14,4,6,0
.BYTE 0,0,0,0,0,0,0,0
.BYTE 0,0,0,0,0,0,0,0
;------------ ╞ ╠ ╔ - ╠OGO -------------
FLI
LDA #56
STA $D011
INC FLY1+1
FLY1 LDA #0
LSR A
AND #31
TAY
LDX #0
FLI0 LDA COLS,Y
STA $50,X
INY
INX
CPX #15
BNE FLI0
LDA #0
STA $5F
LDA #49
FLI1 CMP $D012
BCS FLI1
LDX #3
FLI2 DEX
BNE FLI2
LDA #63
LDX #8
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $5F
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #63 ;╠INE #2
LDX #8
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #63 ;╠INE #3
LDX #8
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #63 ;╠INE #4
LDX #8
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $50
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $51
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #63 ;╠INE #5
LDX #8
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $52
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $53
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #63 ;╠INE #6
LDX #8
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $54
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $55
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #63 ;╠INE #7
LDX #8
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #56
LDX #24
STA $D011
STX $D018
LDA $56
STA $D020
STA $D021
LDA #57
LDX #40
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #58
LDX #56
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #59
LDX #72
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #60
LDX #88
STA $D011
STX $D018
LDA $57
STA $D020
STA $D021
LDA #61
LDX #104
STA $D011
STX $D018
LDA $58
STA $D020
STA $D021
LDA #62
LDX #120
STA $D011
STX $D018
LDA $59
STA $D020
STA $D021
LDA #63
LDX #12
STA $D011
STX $D018
LDA #0
STA $D020
STA $D021
LDA #88
STA $D011
RTS
;--------------- ╟ ┴ ═ ┼ ---------------
GAME
LDA #64
STA $D011
STA $D020
STA $D021
LDX #0
IN1 LDA #255
STA $4000,X
LDA #0
STA $D800,X
STA $D900,X
STA $DA00,X
STA $DB00,X
DEX
BNE IN1
LDA #$44 ;┴UFBAU DES
STA IN6+2 ;╙TERNE-╚IMMELS
LDX #0
STX IN6+1
LDY #0
IN5 TYA
CLC
ADC STARL,X
AND #31
IN6 STA $4400,Y
INY
CPY #40
BNE IN5
LDA IN6+1
CLC
ADC #40
STA IN6+1
BCC IN7
INC IN6+2
IN7 INX
CPX #25
BNE IN5-2
LDA #0
STA END+1
SEI ;╔RQ+╟RAFIK-═ODI
LDA #<IRQ
STA $FFFE
LDA #>IRQ
STA $FFFF
LDA #129
STA $D01A
LDA #250
STA $D012
LDA #27
STA $D011
LDA #198
STA $DD00
LDA #16
STA $D018
LDA #200
STA $D016
CLI
S1
END LDA #0 ;┼NDE ?
BEQ NOEND
LDA #64
STA $D011
STA $D021
SEI
JMP TITLE
NOEND
JMP S1
STARL .BYTE 0,5,20,13,28
.BYTE 14,3,9,23,18
.BYTE 4,10,21,8,27
.BYTE 11,2,26,15,6
.BYTE 24,1,16,29,7
NMI INC END+1 ;*** ╬═╔ ***
RTI
IRQ PHA ;*** ╔╥╤ ***
TXA
PHA
TYA
PHA
LDA $D019
STA $D019
BMI T1
LDA $DC0D
CLI
IRQEND PLA
TAY
PLA
TAX
PLA
RTI
T1
INC BORD
LDX #15
T5 LDA STARP,X ;╙TAR-MOVING!
AND #248
STA T6+1
TXA
AND #7
TAY
LDA #255
T6 STA $4000,Y
LDA STARP,X
SEC
SBC STARS,X
STA STARP,X
AND #248
STA T7+1
LDA STARP,X
AND #7
STA TT7+1
TT7 LDA UND
T7 STA $4000,Y
DEX
BPL T5
INC T8+1 ;╙TAR-╞LASHING!
T8 LDA #0
LSR A
AND #15
TAX
LDA GREY,X
STA $D021
LDA #0
STA BORD
JMP IRQEND
STARP .BYTE 220,10,140,200
.BYTE 160,180,100,50
.BYTE 40,90,80,240
.BYTE 150,110,134,215
STARS .BYTE 1,2,1,3,1,4,1,3
.BYTE 2,1,4,1,1,1,3,1
GREY .BYTE 9,11,12,12,15,3,7,1
.BYTE 1,7,3,15,12,12,11,9
;-------------- ╘ ╔ ╘ ╠ ┼ --------------
TITLE
SEI
LDA #0
STA $D020
STA $D021
STA $D01A
STA $D011
STA V+27
STA V+23
STA V+29
STA FLY1+1
LDX #16
TI0 STA $D000,X
STA $D400,X
STA $D408,X
DEX
BPL TI0
LDX #0
LDA #$35
STA 1
TI1 LDA $BC00,X
STA $D800,X
LDA $BC18,X
STA $D818,X
LDA #0
STA $D918,X
LDA #9
STA $D940,X
STA $DA40,X
STA $DB00,X
DEX
BNE TI1
LDA #<NMI
STA $FFFA
STA $FFFE
LDA #>NMI
STA $FFFB
STA $FFFF
LDA #196
STA 56576
LDA #27
STA $D011
LDA #224
STA 56322
TI20 LDA $D011
BMI TI20
SEI
LDA #120
STA $D011
LDA #216
STA 53270
LDA #24
STA 53272
JSR FLI ;** ╞╠╔-╠OGO! **
LDA #24 ;╘EXT-═ODE
STA $D011
LDX #0 ;├OLOUR-CHANGING...
TI25 LDA TIWAIT,X
CMP $D012
BCS TI25
LDA TICOL1,X
STA $D022
LDA TICOL2,X
STA $D023
INX
CPX #4
BNE TI25
TI26 LDA $DC00 ;╩OY-┬UTTON ?
AND #16
BNE TI28
JMP GAME
TI28
TI99 LDA $D011
BPL TI99
JMP TI20
TIWAIT .BYTE 100,134,158,188
TICOL1 .BYTE 9,6,9,4
TICOL2 .BYTE 5,14,10,12
*= $9F00
UND .BYTE 127,191,223,239
.BYTE 247,251,253,254